home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BMUG PD-ROM BV3
/
BMUG PD-ROM Version BV3 (CDRM1097900).iso
/
HyperCard
/
Utility
/
StoryBoarder 2.01
/
background_2767.txt
< prev
next >
Wrap
Text File
|
1990-02-25
|
6KB
|
307 lines
-- background: 2767 from stack: in.01
-- bmap block id: 3132
-- flags: 4000
-- background id: 0
-- name: Boards
-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=12 top=275 right=338 bottom=193
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: sVideo
-- part 17 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=195 top=275 right=338 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: sSound
-- part 2 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=378 top=36 right=53 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sShot
-- part 3 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=378 top=66 right=83 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sScene
-- part 4 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=378 top=95 right=112 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sPage
-- part 5 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=378 top=123 right=140 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sTime
-- part 6 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=378 top=151 right=273 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: sNotes
-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=390 top=279 right=303 bottom=416
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
repeat 3 times
visual scroll right
end repeat
go first card of this bg
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=415 top=279 right=303 bottom=441
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
visual scroll right to black
visual scroll right
go prev card of this bg
end mouseUp
-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=440 top=279 right=303 bottom=466
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
visual scroll left to black
visual scroll left
go next card of this bg
end mouseUp
-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=465 top=279 right=303 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
if the optionKey is down then
show all cards
else
repeat 3 times
visual scroll left
end repeat
go last card of this bg
end if
end mouseUp
-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=390 top=302 right=326 bottom=416
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
show tool window at 400,50
choose brush tool
end mouseUp
-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=415 top=302 right=326 bottom=441
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
if the optionKey is up then
answer "Erase this board’s picture?" with "OK" or "Cancel"
if it is not "OK" then
exit mouseUp
end if
end if
set cursor to busy
lock screen
choose select tool
doMenu "Select All"
doMenu "Clear Picture"
set cursor to busy
choose browse tool
set cursor to hand
unlock screen
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=440 top=302 right=326 bottom=466
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
if the optionKey is down then
get field "sShot"
if it < 999999 and it >= 0 then
put it + 1 into snum
else
put empty into snum
end if
else
put empty into snum
end if
set cursor to busy
visual scroll down to black
visual scroll down
doMenu "New Card"
set cursor to busy
put snum into field "sShot"
unlock screen
set cursor to hand
end mouseUp
-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=465 top=302 right=326 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
answer "Delete this entire card?" with "OK" or "Cancel"
if it is "OK" then
doMenu "Delete Card"
end if
end mouseUp